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R 
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00001 
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o 
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0000 5 
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000063 
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o 
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, S I X B T 

RP 1 5 


00007 

R 

654040 
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000400 
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o 

00011 

R 
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/ 

.BLOCK 
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00020 

R 

M00000 

A 

f 

SYSERR 

0 


o 

00021 

R 

000000 

A 
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0 


00022 

R 
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A 

ERCODE 
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A 


.BLOCK 

7 
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005000 
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7 
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005000 

A 

BUFSIZ = 

SECSIZ 


o 
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A 

T S T R U N = 
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707764 

A 

EBA«707764 





707702 

A 

EEM?707702 


o 

00032 

R 

706464 

A 

PPLF 

7*46464 


00033 

R 

706304 

A 

PPL A 

706304 



00034 

R 

706344 

A 

DPC A 

706344 


o 

0 0 0 3 S 

R 

706364 

A 

DP WC 

706364 



00036 

R 

706301 

A 

DPSF 

706301 


0 

00037 

R 

706321 

A 

DPSA 

706321 


00040 

R 

706341 

A 

DPS J 

706341 



00041 

R 

706361 

A 

DPSE 

706361 


o 

0 0 042 

R 

706312 

A 

/ 

DPRSA 

706312 



00043 

R 

706332 

A 

DPRSB 

706332 


o 

00044 

R 

706432 

A 

QPRa 

/ 

DPCF 

706432 



00045 

R 

706404 

A 

706404 


o 

00046 

R 

706324 

A 

□ PCS 
/ 

UNIT 

706324 



00047 

R 

000000 

A 

0 


o 

00050 

R 

025000 

A 

WRTCMD 

25000 


00051 

R 

Ml 5000 

A 

RQCMD 

15800 



00052 

R 

031000 

A 

RCLCMD 

31000 


o 






•EJECT 



o 


o 


o 


MODULE 


o 


o 


o 


o 


o 


o 


o 

/MASK FOR CHAIN MODE 

o 


o 


o 


o 


/LOAD FUNCTION AND EXECUTE. O 

/LOAD DISC - ADR. REGISTER * 

/LOAD CURRENT ADR, REGISTER, 

/LOAD WORD COUNT register. O 

/SKIP ON JOB DONE ? ER,, OR ATTEN, 

/SKIP ON ATTEN, FLAG. Q 

/SKIP ON JOB DONE FLAG, 

/SKIP ON ER, FLAG. 

o 

/READ STATUS A REG. 

/READ STATUS B REG. 

/READ ADDRESS REGISTER, O 

/CLEAR FUNCTION REG. 

/CLEAR STATUS REG. O 

/UNIT NO. CURRENTLY UNDER TEST. 

/WRITE COMMAND, O 

/READ COMMAND. 

/RECALIBRATE COMMAND, 

o 


o 


o 


t^y 

u 
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RP 1 5 

SRC 

RP 1 5 



o 





/air T ABLE FOR 

ATTENTION BITS. 

o 


00053 

R 

400000 

A 

B1TTAB 

400000 



o 

00054 

R 

200000 

A 


200000 


o 


00055 

R 

100000 

A 


100000 




00056 

R 

040000 

A 


40000 



0 

00057 

R 

020000 

A 


20000 


o 


00060 

R 

010000 

A 


10000 




00061 

R 

004000 

A 


4000 



o 

00062 

R 

002000 

A 

/ 

2000 


o 






/INITIALIZATION 

ROUTINE, ENTERED FROM MONITOR. 


o 





/ 



o 


00063 

R 

000000 

A 

RPINT 

0 




00064 

R 

707764 

A 


EBA 



o 

00065 

R 

707702 

A 


EEM 


o 


000 66 

R 

200063 

R 


LAC 

RPINT 



00067 

R 

040106 

R 


PAC 

RPSER 


o 

00070 

R 

1 46334 

R 


DZM 

APIFLG# 

o 


00071 

R 

146335 

R 


PZM 

8RKFLG# 



00072 

R 

146401 

R 


DZrl 

SWIND# 


o 

00073 

R 

146356 

R 


DZM 

RECFLG# 

o 


00074 

R 

140020 

R 


DZM 

SYSERR 



00075 

R 

140021 

R 


PZM 

ERWC 


o 

00076 

R 

101314 

R 


JMS 

RESBUF 

o 


00077 

R 

101276 

R 


JMS 

BUFGEN 



00100 

R 

777774 

A 


LAW 

-TSTRUN 


o 

00101 

R 

046365 

R 


PAC 

RUNLEN# 

o 


00102 

R 

100635 

R 

RPIN.l 

JMS 

TEST 1 


o 

00103 

R 

446363 

R 


JSZ 

RUNLEN 

o 


00104 

R 

600102 

R 


JMP 

RP IN, 1 



00105 

R 

600125 

R 


JMP 

TERMIN 


o 





/ 



o 






/service 

: ENTRANCE FROM THE MONITOR* 



00106 

R 

000000 

A 

RPSER 

0 

/SERVICE ENTRANCE, 


o 

00107 

R 

707764 

A 


EBA 


o 


00110 

R 

707702 

A 


EEM 




00111 

R 

1,00167 

R 


JMS 

FLAG 


o 

00112 

R 

620113 

R 


JMP* 

EXIT 

o 


00113 

R 

000000 

A 

EXIT 

0 

/ROUTINE FOR EXIT TO THE MONITOR. 


o 

00114 

R 

206334 

R 


LAC 

APIFLG 

o 


00115 

R 

741200 

A 


SNA 




00116 

R 

600123 

R 


JMP 

* +5 


o 

00117 

R 

146334 

R 


DZM 

APIFLG 

o 


00120 

R 

206332 

R 


LAC 

ACS A VE# 



00121 

R 

703344 

A 


OSR 



o 

00122 

R 

620106 

R 


JMP* 

RPSER 

0 


00123 

R 

750000 

A 


CLA 




00124 

R 

600121 

R 


JMP 

, -3 


o 
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0 

o 








o 


o o 



o 


o o 
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RP15 

SRC 

RP 1 5 



o 








o 






/TERMINATION ROUTINE, 


00125 

R 

200020 

R 

TERMIN 

LAC 

SYSERR 


o 

00126 

R 

741200 

A 


SNA 

/TERMINATE ROUTINE, 

o 

00127 

R 

140021 

R 


DZM 

ERWC 


00130 

R 

777774 

A 


LAW 

-4 


o 

00131 

R 

040020 

R 


DAC 

SYSERR 

o 


00132 

R 

146335 

R 


DZM 

BRKFLG 


00133 

R 

400046 

R 


XCT 

DPCS 


o 

00134 

R 

400045 

R 


XCT 

DPCF 

o 


00135 

R 

1001 13 

R 


JMS 

EXIT 


00136 

R 

740040 

A 


HUT 



o 





/ 



o 






/MONITOR EXIT 

i 

ROUTINE - EXPECTS FLAG DRIVEN RETURN, 


o 

00137 

R 

000000 

A 

MONEXT 

0 


o 

00140 

R 

146335 

R 


DZM 

BRKFLG 


00141 

R 

100113 

R 


JMS 

EXIT 


o 

00142 

R 

620137 

R 


J M P * 

MONEXT 

O 






f 

/BREAK 

EXIT TO 

THE MONITOR, 


0 

00143 

R 

000000 

A 

/ 

BRKEXT 

0 


o 


00144 

R 

200020 

R 


LAC 

SYSERR 


o 

00145 

R 

740200 

A 


SZA 


o 

00146 

R 

600152 

R 


JMP 

* +4 


00147 

R 

1 40021 

R 


DZM 

ERWC 


o 

00150 

R 

777773 

A 


LAW 

p»5 

o 


00151 

R 

741000 

A 


SKP 



00152 

R 

777776 

A 


LAW 

m 2 


o 

00153 

R 

040020 

R 


DAC 

SYSERR 

o 

00154 

R 

777777 

A 


LAW 

m 1 


00155 

R 

046335 

R 


PAC 

BRKFLG 


o 

00156 

R 

100113 

R 


JMS 

EXIT 

o 

00157 

R 

620143 

R 


JMP* 

BRKEXT 

0 





j 

/HOLD 

i 

SUBROUTINE, HOLD ON OPTION SWITCH SET, 

o 


00160 

R 

000000 

A 

/ 

HOLD 

0 



o 

00161 

R 

750004 

A 


LAS 


o 

00162 

R 

500010 

R 


AND 

UODSW+ 1 0 



00153 

R 

741200 

A 


SNA 



o 

00164 

R 

6 20160 

R 


JMP* 

HOLD 

o 

0 0165 

R 

100143 

R 


JMS 

BRKEXT 


00166 

R 

600161 

R 


JMP 

.-5 


0 
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/(■LAG CHECK RIJUTINE USED ON RETURN FROM MONITOR. 
/ 


o 

00167 

R 

000000 

A 

FLAG 

0 



00170 

R 

046332 

R 


DAC 

ACS A VE 


00171 

R 

206405 

R 


LAC 

(40D000 

o 

00172 

R 

705501 

A 


SPI 



00173 

R 

600223 

R 


JMP 

APIOFF 


00174 

R 

777777 

A 


LAW 

1 

o 

00176 

R 

046334 

R 


DAC 

APIFLG 


00176 

R 

400036 

R 


XCT 

DPSF 


00177 

R 

600631 

R 


JMP 

ER 1 

o 





/ 




00200 

R 

400042 

R 

F L A G 1 

XCT 

DPR5A 


00201 

R 

046374 

R 


DAC 

ST AT A# 

o 

00202 

R 

400043 

R 


XCT 

DPRS8 


00203 

R 

046375 

R 


DAC 

STATB# 


00204 

R 

400044 

R 


XCT 

DPR A 

o 

0 0 2 0 5 

R 

046333 

R 


DAC 

adrreg# 


00206 

R 

146335 

R 


DZM 

BRKFLG 


00207 

R 

206356 

R 


LAC 

RECFLG 

o 

00210 

R 

740200 

A 


87 A 


00211 

R 

620167 

R 


JMP* 

FLAG 


00212 

R 

206401 

R 


LAC 

swind 

o 

00213 

R 

740200 

A 


SZA 



00214 

R 

600376 

R 


JMP 

ER4 „ 2 


00215 

R 

400041 

R 


XCT 

DPSE 

o 

00216 

R 

741000 

A 


SKP 



00217 

R 

600264 

R 


JMP 

ER4 


00220 

R 

400046 

R 

FLAGS 

XCT 

PPCS 

o 

00221 

R 

400045 

R 


XCT 

DPCF 


00222 

R 

620167 

R 


JMP* 

FLAG 

o 

00223 

R 

400036 

R 

APIOFF 

XCT 

DPSF 


00224 

R 

74 1000 

A 


SKP 



00225 

R 

600200 

R 


JMP 

FLAG 1 

o 

00226 

R 

206335 

R 


LAC 

BRKFLG 


00227 

R 

741200 

A 


SNA 



00230 

R 

600236 

R 


JMP 

.+6 

o 

00231 

R 

200020 

R 


LAC 

SYSERR 


00232 

R 

740200 

A 


SZA 



00233 

R 

600236 

R 


JMP 

.+3 

o 

00234 

R 

146335 

R 


DZM 

BRKFLG 


00235 

R 

6201 67 

R 


JMP* 

FLAG 


00236 

R 

750001 

A 


CLC 


o 

00237 

R 

620106 

R 


JMP* 

RPSER 
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/ERROR 

ROUTINES 

• 





/ERROR 

i 

2, BLOCK 

NUMBER ERROR AFTER READ BACK FROM DISC 

00240 

R 

046343 

R 

/ 

ER2 

0 AC 

ER2TMP# 

00241 

R 

206406 

R 


LAC 

(2) 

00242 

R 

100575 

R 


JMS 

RESPUT 

00243 

R 

100472 

R 


JMS 

STATUS 

00244 

R 

201332 

R 


LAC 

BUFFER 

00245 

R 

100615 

R 


JMS 

PUT 

00246 

R 

206343 

R 


LAC 

ER2TMP 

00247 

R 

100615 

R 


JMS 

PUT 

00250 

R 

100622 

R 


JMS 

ENDPUT 

00251 

R 

621253 

R 


JMP* 

CHKSUM 





/ERROR 

3, SUM CHECK ERROR AFTER READ BACK FROM DISC, 

00252 

R 

046343 

R 

ER3 

DAC 

ER2TMP 

00253 

R 

206407 

R 


LAC 

(3) 

00254 

R 

100575 

R 


JMS 

RESPUT 

00255 

R 

100472 

K 


JMS 

STATUS 

00256 

R 

206343 

R 


LAC 

ER2TMP 

0W257 

R 

100615 

R 


JMS 

PUT 

00260 

R 

206331 

R 


LAC 

BUFFEK+BUF5IZ-1 

00261 

R 

100615 

R 


JMS 

/ 

PUT 

0 0262 

R 

100622 

R 


/ 

J 11 S 

ENDPUT 

00263 

R 

621253 

R 


JMP* 

H » f rv r 

CHKSUM 


, fcJECT 
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o 










o 





/ERROR 

4, ALL 

OTHER STATUS 

ERRORS FROM THE DISC AFTER AN 

operation. 

0 

00264 

R 

400045 

R 

j 

ER4 

XCT 

DP CP 



o 

00265 

R 

400046 

R 


XCT 

DPCS 




00266 

R 

206410 

R 


LAC 

C 4 ) 




o 

00267 

R 

100575 

R 


JMS 

RE3PUT 



o 

00270 

R 

206374 

R 


LAC 

STATA 




00271 

R 

100615 

R 


JMS 

PUT 




o 

00272 

R 

206375 

R 


LAC 

STATS 



Q 

00273 

R 

100615 

R 


JMS 

PUT 





00274 

R 

206333 

R 


LAC 

ADRREG 




o 

00275 

R 

100615 

R 


JMS 

PUT 



O 

00276 

R 

100622 

R 


JMS 

ENDPUT 




00277 

R 

206375 

R 


LAC 

STATS 




o 

00300 

R 

506411 

R 


and 

(1000) 

/SELECTED UNIT UNSAFE? 


O 

00301 

R 

741200 

A 


SNA 






00302 

R 

600305 

R 


JMP 

• +3 




0 

00303 

R 

100544 

R 


JMS 

DELUNT 

/YES, DELETE UNIT 


o 

00304 

R 

620777 

R 


JMP* 

TSTUNT 




00305 

R 

777777 

A 


LAW 

* 1 




o 

00306 

R 

046373 

R 


DAC 

STABFG# 

/SET FLAG FOR STATUS »A» 

OR IB' IN ERROR DETECTION 

o 

00307 

R 

046353 

R 


DAC 

PARIND* 




00310 

R 

206375 

R 


LAC 

STATB 




o 

00311 

R 

506412 

R 


AND 

(40) 

/FORMAT ERROR? 


o 

00312 

R 

740200 

A 


SZA 





00313 

R 

600327 

R 


JMP 

ER4.1 




o 

00314 

R 

2063/4 

R 


LAC 

STATA 



o 

00315 

R 

506413 

R 


AND 

(20) 

/MDR NOT FOUND? 



00316 

R 

740200 

A 


SZA 





o 

00317 

R 

600334 

R 


JMP 

ER4» 7 



o 

00320 

R 

206375 

R 


LAC 

STATS 




00321 

R 

506414 

R 


AND 

(14) 

/CHECK FOR PARITY ERRORS 



0 

00322 

R 

741200 

A 


SNA 




o 

00323 

R 

600220 

R 


JMP 

F L A G 2 



o 

00324 

R 

20641 4 

R 


f 

LAC 

(14) 



o 

00325 

R 

046402 

R 


DAC 

TRYMSK# 





00326 

R 

600337 

R 


JMP 

ER 4 * 6 




o 






/ 




o 


00327 

R 

206412 

R 

ER 4 # 1 

LAC 

(40) 





00330 

R 

046402 

R 


DAC 

TRYMSK 




./"■s 

u 

00331 

R 

146373 

R 


DZM 

STADFG 



o 

00332 

R 

146353 

R 


DZM 

PARIND 




00333 

R 

600337 

R 


JMP 

ER4.6 




o 






/ 




o 


00334 

R 

206413 

R 

ER4.7 

LAC 

(20) 





00335 

R 

046402 

R 


DAC 

TRYMSK 




o 

00336 

R 

146353 

R 


DZM 

• EJECT 

PARIND 



o 

u 










o 

o 










o 

0 










o 

o 










o 



o 
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RP 1 5 

SRC 

RP 1 5 


o 

00337 

R 

777773 

A 

ER4 B 6 

LAW 

» 6 


00340 

R 

046401 

R 


DAC 

SWINO 

o 

00341 

R 

046345 

R 


DAC 

FHTERC# 

00342 

R 

140020 

R 


DZM 

SYSERR 


00343 

R 

146344 

R 


0 Z M 

FMERCT# 

o 

0034 4 

R 

206374 

R 


LAC 

STATA 

00345 

R 

046371 

R 


DAC 

SSTATA# 


00346 

R 

206375 

R 


LAC 

statb 

o 

00347 

R 

046372 

R 


DAC 

S3TATB# 

00350 

R 

206333 

R 


LAC 

ADRREG 


0035i 

R 

046364 

R 


DAC 

SaVADR# 

o 

00352 

R 

200021 

R 


LAC 

ERWC 

00353 

R 

046365 

R 


DAC 

SAVEWC# 


00354 

R 

200137 

R 


LAC 

MONEXT 

o 

00355 

R 

046370 

R 


DAC 

SMNEXT# 


00356 

R 

2001 13 

R 


LAC 

EXIT 


00357 

R 

046400 

R 


DAC 

SVEX IT# 

o 

00360 

R 

206353 

R 


LAC 

PARIND 


00361 

R 

740200 

A 


SZA 



00362 

R 

600457 

R 


JHP 

ER4.13 

o 






/ 


00363 

R 

100502 

R 

ER4.3 

jus 

t 

REC AL 

o 

00364 

R 

206361 

R 

ER4 • 4 

LAC 

REDbI 

00365 

R 

400033 

R 


XCT 

DPLA 


00366 

R 

206404 

R 


LAC 

wca 

o 

00367 

R 

400035 

R 


XCT 

OPWC 

00370 

R 

206341 

R 


LAC 

CAbI 


00371 

R 

400034 

R 


XCT 

PPC A 

o 

00372 

R 

206371 

R 


LAC 

SSTATA 

00373 

R 

506415 

R 


AND 

(777000) 


00374 

R 

400032 

R 


XCT 

DPLF 

o 

00375 

R 

100137 

R 


JMS 

7 

LAC 

MONEXT 


00376 

R 

206353 

R 

ER4 # 2 

PARIND 

o 

00377 

R 

400046 

R 


XCT 

DPCS 

00400 

R 

740200 

A 


SZA 



00401 

R 

600450 

R 


JHP 

ER4 „ 12 

o 

00402 

R 

206373 

R 


LAC 

STA6FG 

00 403 

R 

741200 

A 


SNA 



00404 

R 

600407 

R 


JHP 

E R 4 , 9 

0 

00405 

R 

206374 

R 


LAC 

STATA 

00 406 

R 

741000 

A 


SKP 



00407 

R 

206^75 

R 

ER4,9 

LAC 

STATB 

o 

00410 

R 

506402 

R 


AND 

TRYMSK 


00411 

R 

741200 

A 


SNA 



00412 

R 

600417 

R 


JHP 


o 

00413 

R 

446344 

R 


ISZ 

FMERCT 

00414 

R 

446345 

R 


I sz 

FMTERC 


00415 

R 

600363 

R 


JHP 

ER4 „ 3 

o 

00416 

R 

600421 

R 


JHP 

ER4.10 


.EJECT 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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RP15 


SRC 


RP15 


00417 

R 

446345 

R 


IS 7 

FMTERC 

00420 

H 

600364 

R 


JMP 

ER4.4 

00421 

R 

100502 

R 

ER4.10 

y 

JMS 

REGAL 

00422 

R 

206370 

R 


LAC 

SMNEXT 

W0423 

R 

040137 

R 


DAC 

MONEXT 

0W424 

R 

206400 

R 


LAC 

SVEXIT 

00425 

R 

040113 

R 


DAC 

EXIT 

00426 

R 

206365 

R 


LAC 

SAVEWC 

00427 

R 

040021 

R 


DAC 

ERWC 

00430 

R 

777777 

A 


LAW 

1 1 

00431 

R 

040020 

R 


DAC 

SYSERR 

00432 

R 

206344 

R 


LAC 

FMERCT 

00433 

R 

744020 

A 


RCR 


00434 

R 

742020 

A. 


RTR 


00 435 

R 

740020 

A 


RAR 


00 436 

R 

240022 

R 


XOR 

ERCODE 

00437 

R 

040022 

R 


DAC 

ERCDDE 

00440 

R 

146401 

R 


DZM 

SWIND 

00441 

R 

600220 

R 


JMP 

FLAG2 

00442 

R 

100502 

R 

ER4.5 

JDS 

HECAL 

00443 

R 

600220 

R 


JMP 

FLAG2 

0044 4 

R 

206371 

R 

ER4.11 

LAC 

SSTATA 

00445 

R 

506415 

R 


AND 

(777000) 

00446 

R 

400032 

R 


XCT 

DPLF 

00447 

R 

100137 

R 


JMS 

MONEXT 

00450 

R 

206375 

R 

ER4.12 

LAC 

STATS 

00451 

R 

506402 

R 


AND 

TRYMSK 

00452 

R 

740200 

A 


SZA 


00453 

R 

446344 

R 


ISZ 

FMERCT 

00454 

R 

446345 

R 


ISZ 

FMTERC 

00455 

R 

741000 

A 


SKP 


00456 

R 

600421 

R 


JMP 

ER4.10 

00457 

R 

206361 

R 

ER4.13 

j 

LAC 

RED * 1 

00 460 

R 

400033 

R 


XCT 

DPL A 

00 461 

R 

206404 

R 


LAC 

WC.l 

00462 

R 

400035 

R 


XCT 

DPWC 

00463 

R 

206341 

R 


LAC 

CA.l 

00464 

R 

400034 

R 


XCT 

DPC A 

00465 

R 

600444 

R 


JMP 

ER4.11 


.EJECT 



O G 

PAGE 9 RP15 SRC RP15 

o o 

/ 

/ERROR 5, HO MORE UNITS LEFT FOR TEST, 

O f o 

00466 R 5)06416 R ER5 UAC (5) 

00467 R 100576 R JMS RE3PUT 

O 00470 R 100622 R JMS ENOPUT O 

004/1 R 60M125 R JMP TERM IN 

7 

o /STATUS PUT AWAY ROUTINE FOR ERRORS. Q 

/ 

00472 R 00000U A STATUS 0 

O 00473 R 206374 R LAC STATA O 

00474 R 100615 R JMS PUT 

00475 R 206375 R LAC S T A T B 

O 00476 R 100615 R JMS PUT Q 

00477 R 206333 R LAC ADRREG 

00500 R 100615 R JMS PUT 

O 00501 R 620472 R JMP* STATUS O 

.EJECT 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 
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/RECALIBRATE ROUTINE AFTER A FORMAT ERROR, ETC . 
/ 


005M2 

R 

000000 

A 

RECAL 

0 


00503 

R 

777777 

A 


LAW 

" 1 

0M504 

R 

046356 

R 


0 AC 

REGFLG 

00505 

R 

400046 

R 


XCT 

OPCS 

00506 

R 

400045 

R 


xcr 

DPCF 

0-3507 

R 

206403 

R 


LAC 

UNNUMB# 

00510 

R 

346417 

R 


TAD 

CBITTAB) 

00511 

R 

046360 

R 


DAC 

REC . 2# 

00512 

R 

760000 

A 


LAW 


00513 

R 

046357 

R 


DAC 

REC a 1# 

00514 

R 

200052 

R 


LAC 

RCLCMD 

00515 

R 

340047 

R 


TAD 

UNIT 

00516 

R 

400032 

R 


XCT 

DPLF 

0M517 

R 

100143 

R 

RECA.l 

JMS 

BRKEXT 

00520 

R 

400042 

R 


XCT 

DPRSA 

00521 

R 

046374 

R 


DAC 

STATA 

00522 

R 

400044 

R 


XCT 

DPR A 

00523 

R 

046333 

R 


DAC 

AORREG 

00524 

R 

400043 

R 


XCT 

DPRSB 

0U525 

R 

046375 

R 


DAC 

STATS 

00526 

R 

526360 

R 


AND* 

REC * 2 

00527 

R 

740200 

A 


SZA 


00530 

R 

600534 

R 


JMP 

, + 4 

00531 

R 

446357 

R 


I3Z 

REC , 1 

00532 

R 

600517 

R 


JMP 

RECA.l 

00533 

R 

600540 

R 


JMP 

, +5 

00534 

R 

206375 

R 


LAC 

STATB 

00 535 

R 

740020 

A 


RAR 


00536 

R 

740400 

A 


SNL 


00537 

R 

600542 

R 


JMP 

RECA.2 

005 40 

R 

100544 

R 


JMS 

DELUNT 

00541 

R 

620777 

R 


JMP* 

TSTUNT 

00542 

R 

146356 

R 

RECA.2 

y 

DZM 

RECFLG 

00543 

R 

620502 

R 


JMP* 

RECAL 


/ 

/DELETE THIS UNIT BECAUSE OF UNRECOVERABLE ERROR SUCH AS 
/UNIT UNSAFE, ETC, 

/ 


00544 

R 

000000 

A 

DELUNT 0 


00545 

R 

100560 

R 

JMS 

ER6 

00546 

R 

206403 

R 

LAC 

UNNUMS 

00547 

R 

346420 

R 

TAD 

(ACTIVE) 

00550 

R 

046342 

R 

PAC 

DEL .1# 

00551 

R 

1.66342 

R 

DZM* 

DEL. 1 

00552 

R 

750001 

A 

CLC 


00553 

R 

346346 

R 

TAD 

NUMUNT 

00554 

R 

046346 

R 

DAC 

NUMUNT 

00 555 

R 

7412U0 

A 

SNA 


00556 

R 

600466 

R 

JMP 

ER5 

00557 

R 

620544 

R 

JMP* 

DELUNT 


u 


PAGE n 

o 

O 


RP 1 5 SRC RP i 5 

.EJECT 


u 

o 

o 


o 


o 


o 


o 


u 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

PAGE 12 


RP15 

SRC 

RP 1 5 


o 





/ERROR 

/ 

ER6 

6, THIS 

UNIT IS BEING DELETED, 

0 

00560 

R 

000000 

A 

0 


o 

00561 

R 

206421 

R 


LAC 

C 6 ) 



00562 

R 

100575 

R 


JUS 

RESPUT 


o 

00563 

R 

206403 

H 


LAC 

UNNUM8 

o 


00564 

R 

100615 

R 


JMS 

PUT 



00565 

R 

206374 

R 


LAC 

STATA 


o 

00566 

R 

100615 

R 


JMS 

PUT 

o 

00567 

R 

206375 

R 


LAC 

STATB 



00570 

R 

100615 

R 


JMS 

PUT 


0 

00571 

R 

206333 

R 


LAC 

ADRREG 

o 

00572 

R 

100615 

R 


JMS 

PUT 


00573 

R 

100622 

R 


JMS 

ENDPUT 


o 

00574 

R 

620560 

R 


JMP* 

ER6 

o 






/RESET 

ERROR PUT AWAY ROUTINE, 


o 

00575 

R 

000000 

A 

y 

RESPUT 

0 


o 

00576 

R 

046362 

R 


DAC 

RESTMP# 



00577 

R 

200020 

R 


LAC 

SYSERR 


o 

00600 

R 

741200 

A 


SNA 


o 


00601 

R 

600605 

R 


JMP 

RE3P.2 


00602 

R 

546422 

R 


SAD 

on 


o 

00603 

R 

600613 

R 


JMP 

RESP.l 

o 

00604 

R 

740040 

A 

/ 

RESP * 2 

HLT 


o 

00605 

R 

206362 

R 

LAC 

RESTMP 

o 

00606 

R 

040022 

R 


DAC 

ENCODE 


00607 

R 

206423 

R 


LAC 

CERCQPE+l 


o 

00610 

R 

046354 

R 


DAC 

PUT • 1 

o 


00611 

R 

146355 

R 


QZM 

PUT, 2 

o 

00612 

R 

620575 

R 

/ 

JMP* 

RESPUT 

o 

00613 

R 

100143 

R 

RESP,1 

JMS 

BRKEXT 


00614 

R 

600605 

R 


JMP 

RESP , 2 


o 





/ 



o 






/PUTAWAY ROUTINE FOR ERROR P RAMETERS, 
/ 


o 

00615 

R 

000000 

A 

PUT 

0 


o 

00616 

R 

066354 

R 


DAC* 

PUT, 1 ft 


00617 

R 

446354 

R 


ISZ 

PUT, 1 


o 

00620 

R 

446355 

R 


ISZ 

PUT, 2ft 

o 

00621 

R 

620615 

R 


JMP* 

, EJECT 

PUT 



o 








o 

o 








o 



o 


PAGE 13 


RP15 SRC 


RP15 


/END PUT 
/ 


AWAY ROUTINE 


o 

00622 

R 

000000 

A 

ENOPUT 

0 


o 


00623 

R 

206355 

R 


LAC 

PUT « 2 



00624 

R 

740001 

A 


CM A 



o 

00625 

R 

040021 

R 


DAC 

ERWC 

o 


W0626 

R 

777777 

A 


LAW 

” 1 



00627 

R 

040020 

R 


DAC 

SYSERR 


o 

00630 

R 

620622 

R 


J M P * 

ENOPUT 

o 






/ 

/ERROR 

1 - ERROR 

! ROUTINE FOR API ERROR # 


o 





/ 



o 


00631 

R 

206424 

R 

ER1 

LAC 

Cl) 



00632 

R 

100575 

R 


JMS 

RESPUT 


o 

00633 

R 

100622 

R 


JMS 

ENOPUT 

o 


00634 

R 

600125 

R 


JMP 

termin 


o 





/ 

/ 



o 






/TEST 

1 - CHECK 

EACH OF THE MAJOR FUNCTIONAL ELEMENTS OF EACH UNIT# 


o 

00635 

R 

mmm 

A 

j 

TEST 1 

0 


0 


00636 

R 

100643 

R 


JMS 

ONLIN 



00637 

R 

100742 

R 


JMS 

SETNXT 


o 

00640 

R 

620635 

R 


JMP* 

TEST! 

o 


00641 

R 

100777 

R 


JMS 

TSTUNT 



00642 

R 

600637 

R 


JMP 

# *3 


o 





/ 



o 






/ON - 

LINE SUBROUTINE # 


o 

00643 

R 

000000 

A 

j 

ONLIN 

0 


o 


00644 

R 

100160 

R 


JMS 

HOLD 



00645 

R 

400045 

R 


XCT 

DPCF 


o 

00646 

R 

400046 

R 


XCT 

DPCS 

o 


00647 

R 

146347 

R 


P Z M 

0NL.1# 



00650 

R 

146346 

R 


DZH 

NUMUNT# 


o 

00651 

R 

206420 

R 


LAC 

(ACTIVE) 

o 


00652 

R 

046350 

R 


0 AC 

ONL, 2# 



00653 

R 

777770 

A 


LAW 

-10 


o 

00654 

R 

046351 

R 


DAC 

UNL.3# 

o 


00655 

R 

750001 

A 


CLC 




Pi 0 6 5 6 

R 

066350 

R 

0NLI.1 

DAC* 

ONL • 2 


o 

00657 

R 

446350 

R 


ISZ 

ONL • 2 

o 


00660 

R 

446351 

R 


ISZ 

ONL. 3 



00661 

R 

600656 

R 


JMP 

ONL I # 1 


o 

0066 2 

R 

206420 

R 


LAC 

(ACTIVE) 

o 


00663 

R 

0 4 6 3 5 0 

R 


PAC 

ONL. 2 



00664 

R 

206347 

R 

0NLI.2 

LAC 

0NL.1 


o 

00665 

R 

600714 

R 


JMP 

ONL. 4 

o 


o 
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RP15 

SRC 

RP 1 5 


o 

00 666 

R 

000000 

A 

CHKONL 

0 



00667 

R 

400032 

R 


XCT 

DPLP 

o 

00670 

R 

777774 

A 


LAW 

•» 4 

00671 

R 

046351 

R 


DAC 

QNL,3 


00672 

R 

446351 

R 


ISZ 

0NL.3 

o 

00673 

R 

600672 

R 


JMP 

« - 1 

00674 

R 

400042 

R 


XCT 

DPRSA 


00675 

R 

506425 

R 


AND 

C 10) 

o 

00676 

R 

740200 

A 


SZA 



0067 7 

R 

620666 

R 


JMP* 

CHKONL 


00700 

R 

400043 

R 


XCT 

DPRS8 

o 

00701 

R 

740020 

A 


RAR 


00702 

R 

741400 

A 


SZL 



00703 

R 

741000 

A 


SKP 


o 

00704 

R 

6007 1 1 

R 


JMP 

.+5 

00705 

R 

740020 

A 


RAR 



00706 

R 

741400 

A 


SZL 


o 

00707 

R 

6007 1 1 

R 


JMP 

.+2 

00710 

R 

620666 

R 


JMP* 

CHKONL 


0071 1 

R 

440666 

R 


ISZ 

CHKONL 

0 

00712 

R 

440666 

R 


ISZ 

CHKONL 

00713 

R 

620666 

R 


JMP* 

CHKONL 

o 

00714 

R 

100666 

R 

QNL.4 

J MS 

CHKONL 


00715 

R 

166350 

R 


DZM* 

0NL.2 


00716 

R 

741000 

A 


SKP 


o 

00717 

R 

446346 

R 


ISZ 

NUMUNT 


00720 

R 

446350 

R 


ISZ 

PNL • 2 


00721 

R 

206347 

R 


LAC 

ONL . 1 

o 

00722 

R 

346426 

R 


TAD 

(100000) 

00723 

R 

046347 

R 


DAC 

ONL -> 1 


00724 

R 

740200 

A 


SZA 


o 

00725 

R 

600714 

R 


JMP 

ONL * 4 

00726 

R 

206346 

R 


LAC 

NUMUNT 


00727 

R 

741200 

A 


SNA 


o 

007 30 

R 

600466 

R 


JMP 

ER5 

00731 

R 

777767 

A 


LAW 

-11 


00732 

R 

046367 

R 


DAC 

SET .2# 

o 

00733 

R 

206427 

R 


LAC 

(700000) 

00734 

R 

040047 

R 


DAC 

UNIT 


00735 

R 

750001 

A 


CLC 


o 

00736 

R 

046403 

R 


DAC 

UNNUMB 

00737 

R 

206430 

R 


LAC 

(ACTIVE-1 ) 


00740 

R 

046366 

R 


DAC 

SET • 1 ft 

o 

00741 

R 

620643 

R 


JMP* 

ONLIN 


.EJECT 

o 

o 

o 


o 


o 


/WRITE PROTECTED? 

/YES 

/CHECK UNIT REAOY 
/YES 

/NOT READY, CHECK FOR SEEK UNDERWAY 
/UNDERWAY SO OK TO PUT IN TABLE 


/ELIMINATE UNIT 


/NO MORE UNITS 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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RP 1 5 


SRC 


RP 1 5 






/SET NEXT UNIT 

J 

SUBROUTINE. 

00742 

R 

0 0 0 0 0 0 

A 

f 

SETNXT 

0 


00743 

R 

£06346 

R 


LAC 

NUMUNT 

00744 

R 

741200 

A 


SNA 


00745 

R 

600466 

R 


JMP 

ER5 

007 46 

R 

446367 

R 

SETN.l 

ISZ 

SET. 2 

00747 

R 

741000 

A 


SKP 


00750 

R 

620742 

R 


JMP* 

SETNXT 

00751 

R 

446366 

R 


ISZ 

SET. 1 

00752 

R 

200047 

R 


LAC 

UNIT 

00753 

R 

346426 

R 


TAD 

(100000) 

00754 

R 

040047 

R 


DAC 

UNIT 

00755 

R 

446403 

R 


ISZ 

UNNUMB 

00756 

R 

740000 

A 


NOP 


00757 

R 

226366 

R 


LAC* 

SET , 1 

00760 

R 

741200 

A 


SNA 


00761 

R 

600746 

R 


JMP 

SETN.l 

00762 

R 

200047 

R 


LAC 

UNIT 

00763 

R 

100666 

R 


JMS 

CHKUNL 

00764 

R 

600767 

R 


JMP 

.+3 

00765 

R 

740000 

A 


NOP 


00766 

R 

600775 

R 


JMP 

SETN.2 

00767 

R 

166366 

R 


OZM* 

SET . 1 

00770 

R 

100560 

R 


JMS 

ER6 

00771 

R 

750001 

A 


CLC 


00772 

R 

346346 

R 


TAP 

NUMUNT 

00773 

R 

046346 

R 


DAC 

NUMUNT 

00774 

R 

600744 

R 


JMP 

SETNXT + 2 

00775 

R 

440742 

R 

SETN.2 

ISZ 

SETNXT 

00776 

R 

620742 

R 

i 

JMP* 

SETNXT 





/ 

/TEST 

UNIT BY 

CYLINDER, HEAD 

00777 

R 

000000 

A 

f 

tstunt 

O 


01000 

R 

101047 

R 


JMS 

WRTSEC 

01001 

R 

777770 

A 


LAW 

-10 

01002 

R 

046352 

R 


DAC 

OPRCNT# 

01003 

R 

101105 

R 


JMS 

CHKSEC 

01004 

R 

446352 

R 


ISZ 

OPRCNT 

01005 

R 

601003 

R 


JMP 

.-2 

01006 

R 

101033 

R 


JMS 

WRTHO 

01007 

R 

777770 

A 


LAW 

"10 

01010 

R 

046352 

R 


DAC 

QPRCNT 

01011 

R 

101072 

R 


JMS 

CHKHD 

01012 

R 

446352 

R 


ISZ 

OPRCNT 

01013 

R 

601011 

R 


JMP 

,-2 

01014 

R 

101017 

R 


JMS 

WRTCYL 

01015 

R 

101056 

R 


JMS 

CHKCYL 

01016 

R 

620777 

R 


JMP* 

TSTUNT 


.EJECT 


/UNITS NO LONGER ON LINE 


AND SECTOR, 
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o 


o 

01017 

R 

000000 

A 

01020 

R 

141024 

R 


01021 

R 

101115 

R 

o 

01022 

R 

773000 

A 

01023 

R 

001332 

R 


01024 

R 

000000 

A 

o 

01025 

R 

201024 

R 

01026 

R 

346431 

R 


01027 

R 

041024 

R 

o 

01030 

R 

546432 

R 


01031 

R 

621017 

R 


01032 

R 

601021 

R 

o 

o 

01033 

R 

000000 

A 

01034 

R 

141040 

R 


01035 

R 

101115 

R 

o 

01036 

R 

773000 

A 

01037 

R 

001332 

R 


01040 

R 

000000 

A 

o 

01041 

R 

201,040 

R 

01042 

R 

346412 

R 


01043 

R 

041040 

R 

o 

01044 

R 

546433 

R 

01045 

R 

621033 

R 


01046 

R 

601035 

R 

o 

o 

01047 

R 

0000D0 

A 

01050 

R 

141054 

R 


01051 

R 

101115 

R 

o 

01052 

R 

773000 

A 

01053 

R 

001332 

R 


01054 

R 

000000 

A 

o 

01055 

R 

621047 

R 


✓"""S 

u 

O 

O 

O 

o 

o 


/WRITE CYLINDER ROUTINE, 
/ 

WRTCYL 0 

DZM WRTC.1+3 

WRTC.l JMS WRITE 

«*5ECS I Z 
BUFFER 
0 

LAC .-1 

TAD (2000) 

DAC ,-3 

SAO (626000) 

JMP* WRTCYL 

JMP W R T C , 1 

/ 

/WRITE HEAD ROUTINE, 

/ 

WRTHD 0 

DZM WKTH • 1 +3 

WRTH* 1 JMS WRITE 

"SECSIZ 
BUFFER 
0 

LAC ,~1 

TAD (40) 

DAC ,-3 

SAD ( 1200) 

JMP* WRTHD 

JMP WRTH* 1 

/ 

/WRITE SECTOR ROUTINE, 

/ 

WRTSEC 0 

DZM WRTS.1+3 

WRTS.l JMS WRITE 

-SECSIZ 
BUFFER 
0 

JMP* WRTSEC 

.EJECT 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




o 

o 

o 


o 


o 

i 

i 

o 

O j 

o 

o 

o 

- ! l 

O 1 

o ! 

I 

O : 

O ; 

° ! 

o 

o ! 

u 

O 

o 

° I 

° i 

o j 

I 

o 

o 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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/WRITE SUBROUTINE. 
/ 


01115 

R 

000000 

A 

WRITE 

0 


01116 

R 

101276 

R 


JMS 

BUFGEN 

01117 

R 

221115 

R 


LAC* 

WRITE 

01120 

R 

400035 

R 


XCT 

DPWC 

01121 

R 

046404 

R 


PAC 

WC.l 

01122 

R 

441115 

R 


ISZ 

WRITE 

01123 

R 

221115 

R 


LAC* 

WRITE 

01124 

R 

400034 

R 


XCT 

DPCA 

01125 

R 

246341 

R 


PAC 

C A * 1 

01126 

R 

44U15 

R 


ISZ 

WRITE 

01127 

R 

221115 

R 


LAC* 

WRITE 

01130 

R 

400033 

R 


XCT 

DPLA 

01131 

R 

046361 

R 


PAC 

RED* 1 

01132 

R 

101236 

R 


JMS 

SUMCHK 

01133 

R 

441115 

R 


ISZ 

WRITE 

01134 

R 

100160 

R 


JMS 

HOLD 

01135 

R 

200050 

R 


LAC 

WRTCMD 

01136 

R 

340047 

R 


TAP 

UNIT 

01137 

R 

400032 

R 


XCT 

DPLF 

01140 

R 

100137 

R 


JMS 

MONEXT 

01141 

R 

621115 

R 

/ 

J M P * 

WRITE 





/ 

/READ 

SUBROUTINE 

• * 

01142 

R 

000000 

A 

y 

READ 

0 


01143 

R 

221142 

R 


LAC* 

READ 

01144 

R 

400035 

R 


XCT 

DPWC 

01145 

R 

046404 

R 


PAC 

WC.l# 

01146 

R 

441142 

R 


ISZ 

READ 

01147 

R 

221142 

R 


LAC* 

READ 

01150 

R 

400034 

R 


XCT 

DPCA 

01151 

R 

046341 

R 


PAC 

C A , 1 # 

01152 

R 

441142 

R 


ISZ 

READ 

01153 

R 

221142 

R 


LAC* 

READ 

01154 

R 

400033 

R 


XCT 

DPLA 

01155 

R 

046361 

R 


DAC 

RED* 1# 

01156 

R 

441142 

R 


ISZ 

READ 

01157 

R 

100160 

R 


JMS 

HOLD 

01160 

R 

200051 

R 


LAC 

RDCMD 

01161 

R 

340047 

R 


TAD 

UNIT 

01162 

R 

400032 

R 


XCT 

DPLF 

01163 

R 

100137 

R 


JMS 

MONEXT 

01164 

R 

206361 

R 


LAC 

RED. 1 

01165 

R 

101253 

R 


JMS 

CHKSUM 

01166 

R 

621142 

R 


JMP* 

READ 


.EJECT 


o 


o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 
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o 

j /RANDOM NUMBER GENERATOR ROUTINE 

I / 


I o 

1 

01167 

R 

0 0 0 0 0 0 

A 

RANGEN 

0 


01170 

R 

201225 

R 


LAC 

RANPEX 


01171 

R 

346434 

R 


TAD 

ORANTBL-10) 

o 

01172 

R 

741100 

A 


SPA 



01173 

R 

601203 

R 


jmp 

RANTAP-1 


01174 

R 

206435 

R 


LAC 

(RANTED 

' ° 

01175 

R 

041225 

R 


PAG 

RANPEX 


01176 

R 

201224 

R 


LAC 

RANCON 

1 

01177 

R 

745100 

A 


SPA1CLL 


o 

01200 

R 

744002 

A 


STL 



01201 

R 

740010 

A 


RAL 


! O 

01202 

R 

041224 

R 


DAC 

RANCON 

01203 

R 

221225 

R 


LAC* 

RANPEX 


01204 

R 

341224 

R 

j 

RANT AO 

TAQ 

RANCON 

o 

01205 

R 

061225 

R 


PAC* 

RANPEX 

01206 

R 

441223 

R 


ISZ 

RANCNT 


01207 

R 

601214 

R 


JMP 

«+5 

o 

01210 

R 

366436 

R 


TAQ* 

(0) 

01211 

R 

061225 

R 


PAC* 

RANPEX 


01212 

R 

777000 

A 


LAW 

<*1000 

o 

01213 

R 

041223 

R 


PAC 

RANCNT 

01214 

R 

201222 

R 


LAC 

RANSAV 


01215 

R 

740020 

A 


RAR 


o 

01216 

R 

361225 

R 


TAP* 

RANPEX 

01217 

R 

041222 

R 


DAC 

RANSAV 


01220 

R 

441225 

R 


ISZ 

RANPEX 

o 

01221 

R 

621167 

R 


JMP* 

RANGEN 

01222 

R 

000000 

A 

RANSAV 

0 


o 

01223 

R 

777000 

A 

RANCNT 

/ 

«1 000 


01224 

R 

123456 

A 

RANCON 

123456 



01225 

R 

001236 

R 

RANPEX 

RANTBL+10 

o 

01226 

R 

654321 

A 

RANT8L 

654321 


01227 

R 

361416 

A 


361416 



01230 

R 

055363 

A 


055363 


o 

01231 

R 

54 6 0 6 0 

A 


546060 


01232 

R 

243035 

A 


243035 



01233 

R 

762572 

A 


762572 


o 

01234 

R 

453237 

A 


453237 


01235 

R 

150214 

A 


150214 

.EJECT 




o 

o 

o 

o 


o 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



PAGE 2 0 


RP 1 5 

SRC 

RP 1 5 






/SUMCHECK GENERATION ROUTINE 
/ 

01236 

R 

0 0 0000 

A 

/ 

SUMCHK 

0 


01237 

R 

041332 

R 


OAC 

BUFEER 

01240 

R 

773002 

A 


LAW 

-SECS I Z + 2 

01241 

R 

046376 

R 


DAC 

SUM, 1* 

01242 

R 

206437 

R 


LAC 

(BUFFER* 1 ) 

01243 

R 

0 4 6 3 7 7 

R 


DAC 

SUM, 2# 

01244 

R 

201332 

R 


LAC 

BUFFER 

01245 

R 

366377 

R 


TAD* 

SUM, 2 

01246 

R 

446377 

R 


1 62 

SUM, 2 

01247 

R 

446376 

R 


I3Z 

SUM.l 

01250 

R 

601245 

R 


JMP 

, *3 

01251 

R 

066377 

R 


DAC* 

SUM, 2 

01252 

R 

621236 

R 


JMP* 

SUMCHK 





/ 

/CHECK 

V 

SUM CHECKING ROUTINE 

01253 

R 

000000 

A 

/ 

CHKSUM 

W 


01254 

R 

541332 

R 


SAD 

BUFFER 

01255 

R 

741000 

A 


SKP 


01256 

R 

600240 

R 


JMP 

ER2 

01257 

R 

773002 

A 


LAW 

-SECSIZ+2 

01260 

R 

046376 

R 


DAC 

SUM, 1 

01261 

R 

206437 

R 


LAC 

(BUFFER* 1 } 

01262 

R 

046377 

R 


DAC 

SUM, 2 

01263 

R 

201332 

R 


LAC 

BUFFER 

01264 

R 

366377 

R 


TAD* 

SUM. 2 

01265 

R 

446377 

R 


ISZ 

SUM, 2 

01266 

R 

446376 

R 


IS2 

SUM.l 

01267 

R 

601264 

R 


JMP 

, •*3 

01270 

R 

740001 

A 


CM A 


01271 

R 

346424 

R 


TAP 

Cl) 

01272 

R 

366377 

R 


TAD* 

SUM, 2 

01273 

R 

740200 

A 


SZA 


01274 

R 

600252 

R 


JMP 

ER3 

01275 

R 

621253 

R 


JMP* 

, EJECT 

CHKSUM 


WRITE, 


READ, 
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ftp 1 5 SRC 


RP15 


/BUFFER RANDOM DATA GENERATION ROUTINE. 
/ 


0:1276 

R 

000000 

A 

BUFGEN 

0 


01277 

R 

777700 

A 


LAW 

"100 

01300 

R 

046336 

R 


DAC 

BUF.lf? 

01301 

R 

101167 

R 

BUFG.l 

JMS 

RANGEN 

013U2 

R 

741200 

A 


SNA 


01303 

R 

601301 

R 


JMP 

BUFG.l 

01304 

R 

066337 

R 


DAC* 

BUF.2# 

01305 

R 

446337 

R 


ISZ 

BUF.2 

01306 

R 

446340 

R 


ISZ 

8UF • 3# 

01307 

R 

741000 

A 


SKP 


01310 

R 

101314 

R 


JMS 

RESBUF 

01311 

R 

446336 

R 


ISZ 

BUF.l 

01312 

R 

601301 

R 


JMP 

BUFG.l 

01313 

R 

621276 

R 

/ 

JMP* 

BUFGEN 

01314 

R 

000000 

A 

RESBUF 

0 


01315 

R 

773000 

A 


LAW 

-BUFSIZ 

01316 

R 

046349 

R 


DAC 

BUF.3 

01317 

R 

206440 

R 


LAC 

(BUFFER) 

01320 

R 

046337 

R 


DAC 

BUF.2 

01321 

R 

621314 

R 

i 

JMP * 

RESBUF 

01322 

R 


A 

/ 

ACTIVE 

/ 

BUFFER 

.BLOCK 

10 

01332 

R 


A 

.BLOCK 

.EJECT 

BUFSIZ 
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00000 M R 

06405 R 400000 A *L 

06406 R 000002 A *L 

06407 R 000005 A *L 

06410 R 000004 A *L 

06411 R 001000 A *t 

06412 R 000040 A *1 

06413 R 000020 A *L 

06414 R 000014 A *1 

06415 R 777000 A *1 

06416 R 000005 A *1 

06417 R 000053 R *L 

06420 R 001322 R *1 

06421 R 000006 A *L 

06422 R 77777/ A *1 

06423 R 000023 R *L 

06424 R 000001 A *L 

06425 R 0000U) A *1 

06426 R 100000 A *1 

06427 R 7000W0 A *L 

06430 R 001321 R *L 

06431 R 002000 A *L 

06432 R 626000 A *L 

06433 R 001200 A *L 

06434 R 776542 R *1 

06435 R 001226 R *L 

06436 R 000000 A *1 

06437 R 001333 R *L 

06440 R 001332 R * l 

SIZE= 06444 


HP 1 5 


• END 


UQOSW 


NO ERROR LINES 


PAGE ! 

23 1 

3P 1 5 

SRC 

RP15 


ACS AVE 

0633?. 

R 

ACTIVE 

01322 

R 

AP I OFF 

00223 

R 

BITTAB 

00053 

R 

BUFFER 

0133? 

R 

BUFGEN 

01276 

R 

BUF.l 

06336 

R 

B U F , 2 

0633/ 

R 

CHKCYL 

01056 

R 

CHKC.l 

01060 

R 

CHKONL 

00666 

R 

CHKSEC 

01106 

R 

DELUNT 

0054 4 

R 

DEL # 1 

06342 

R 

DPCS 

00046 

R 

PPL A 

00033 

R 

dprsa 

00042 

R 

DPRS8 

00043 

R 

DPSF 

00036 

R 

DPS J 

00040 

R 

EEM 

707/02 

A 

ENOPU-T 

00622 

R 

ER 1 

00631 

R 

ER2 

00240 

R 

ER4 

00264 

R 

ER4 , 1 

0032/ 

R 

ER4.12 

00450 

R 

ER4.13 

0045/ 

R 

ER4 „ 4 

00364 

R 

ER4.5 

00442 

R 

ER4,9 

00407 

R 

ER5 

00466 

R 

FLAG 

00167 

R 

FLAG 1 

002 00 

R 

FMTERC 

06345 

R 

HOLD 

00160 

R 

ONLIN 

00643 

R 

ONLI.l 

0 0 656 

R 

ONL. 2 

06350 

R 

ONL • 3 

06351 

R 

PARIND 

06353 

R 

PUT 

00615 

R 

RANCNT 

01223 

R 

RANCON 

01224 

R 

RANSAV 

01222 

R 

RANTAP 

01204 

R 

RDCMP 

00051 

R 

READ 

01142 

R 

RECA.2 

00542 

R 

RECFLG 

06356 

R 

RED, 1 

06361 

R 

RESBUF 

01314 

R 

RESP.2 

00605 

R 

RESTMP 

06362 

R 

RPSER 

00106 

R 

RUNLEN 

06363 

R 

SEC5IZ 

005000 

A 

SETNXT 

00/42 

R 

SET , 1 

06366 

R 

SET , 2 

0636/ 

R 

SSTATB 

06372 

R 

STABFG 

06373 

R 

status 

00472 

R 

SUMCHK 

01236 

R 

SVEXIT 

06400 

R 

SWIND 

06401 

R 

TEST 1 

00635 

R 

TRYMSK 

06402 

R 

UNIT 

00047 

R 

UNNUMB 

06403 

R 

WRITE 

01115 

R 

WRTCMD 

00058 

R 

WRTHD 

01033 

R 

WRTH , 1 

01035 

R 


AQRREG 

06333 

R 

APIFLG 

06334 

R 

BRKEXT 

00143 

R 

brkflg 

06335 

R 

8UFG.1 

01301 

R 

BUFSIZ 

005000 

A 

BUF * 3 

06340 

R 

C A , 1 

06341 

R 

CHKHD 

01072 

R 

CHKH , 1 

01074 

R 

CHKSUM 

01253 

R 

CHKS.l 

01110 

R 

DPC A 

00034 

R 

DPCF 

00045 

R 

DPLF 

00032 

R 

DPR A 

00044 

R 

DPSA 

00037 

R 

DPSE 

00841 

R 

OPWC 

00035 

R 

EBA 

707764 

A 

ERCODE 

00022 

R 

ERWC 

00021 

R 

ER2TMP 

06343 

R 

ER3 

00252 

R 

ER4.10 

00421 

R 

ER4.il 

00444 

R 

ER4 „ 2 

00376 

R 

ER4.3 

00363 

R 

ER4 , 6 

00337 

R 

ER4.7 

00334 

R 

ER6 

00560 

R 

EXIT 

00113 

R 

FLAG2 

00220 

R 

FMERCT 

06344 

H 

MONEXT 

00137 

R 

NUMUNT 

06346 

R 

ONL 1,2 

00664 

R 

ONL « 1 

06347 

R 

ONL, 4 

00714 

R 

oprcnt 

06352 

R 

PUT , 1 

06354 

R 

PUT. 2 

06355 

R 

RANDEX 

01225 

R 

RANGEN 

01167 

R 

rantbl 

01226 

R 

rclcmd 

00052 

R 

RECAL 

00502 

R 

NEC A , 1 

00517 

R 

REC , 1 

06357 

R 

REC. 2 

06360 

R 

RESPUT 

00575 

R 

RESP.l 

00613 

R 

RPINT 

0D063 

R 

RPIN , 1 

00102 

R 

SAVADR 

06364 

R 

SAVEWC 

06365 

R 

SETN , 1 

00746 

R 

SETN.2 

00775 

R 

SMNEXT 

06370 

R 

SSTATA 

06371 

R 

STATA 

06374 

R 

STATB 

06375 

R 

SUM , 1 

06376 

R 

SUM, 2 

06377 

R 

SYSERR 

00020 

R 

TERMIN 

00125 

R 

TSTRUN 

000004 

A 

tstunt 

00777 

R 

UODSW 

00000 

R 

WC.l 

06404 

R 

WRTCYL 

01017 

R 

WRTC.l 

01021 

R 

WRTSEC 

01047 

R 

WRTS.l 

01051 

R 


UGDSW 


R 

TSTRUN 

000004 

A 

ERCQDE 

00022 

R 

DPLF 

00032 

R 

DP WC 

00035 

R 

DPSF 

00036 

R 

DPSE 

00041, 

R 

DPRS A 

00042 

R 

OPCF 

00045 

R 

OPCS 

00046 

R 

RDCMP 

00051 

R 

RCLCMO 

00052 

R 

RPIN.l 

00102 

R 

RPSER 

00106 

R 

MQNEXT 

00137 

R 

BRKEXT 

00143 

R 

FLAG! 

00200 

R 

FLAG2 

00220 

R 

ER3 

00252 

R 

ER4 

00264 

R 

ER4.6 

00337 

R 

ER4.3 

00363 

R 

ER4 , 9 

00407 

R 

ER4 * 1 0 

00421 

R 

ER4.12 

00450 

R 

ER4 , 1 3 

00457 

R 

RECAL 

00502 

R 

RECA.l 

00517 

R 

ER6 

00560 

R 

RESPUT 

00575 

R 

PUT 

00615 

R 

ENDPUT 

00622 

R 

QNLXN 

00643 

R 

0 N L 1 , 1 

00656 

R 

ONL • 4 

00714 

R 

SETNXT 

00742 

R 

TSTUNT 

00777 

R 

WRTCYL 

01017 

R 

WRTH.l 

01035 

R 

WRTSEC 

01047 

R 

CHKC.l 

0106fl 

R 

CHKHD 

01072 

R 

CMK S , 1 

0111M 

R 

WRITE 

01115 

R 

RANTAD 

01204 

R 

RANSAV 

01222 

R 

RANDEX 

01225 

R 

RANTBL 

01226 

R 

BUFGEN 

01276 

R 

BUFG , 1 

01301 

R 

BUFFER 

01332 

R 

BUFSIZ 

005000 

A 

ADRREG 

06333 

R 

APIFLG 

06334 

R 

BUF.2 

06337 

R 

6UF.3 

06340 

R 

ER2TMP 

06343 

R 

FMERCT 

06344 

R 

ONL.l 

06347 

R 

ONL, 2 

06350 

R 

PARING 

06353 

R 

PUT « 1 

06354 

R 

REC.l 

06357 

R 

REC.2 

06360 

R 

RUNLEN 

06363 

R 

SAVADR 

06364 

R 

SET, 2 

06367 

R 

SMNEXT 

06370 

R 

STABFG 

06373 

R 

STATA 

06374 

R 

SUM. 2 

06377 

R 

SVEXIT 

0 6400 

R 

UNNUMB 

06403 

R 

WC, 1 

06404 

R 


SYSERR 

00020 

R 

ER WC 

00021 

R 

DPI A 

00033 

R 

OPC A 

00034 

R 

DPSA 

00037 

R 

OPS J 

000 40 

R 

DPRSB 

00043 

R 

DPR A 

00044 

R 

UNIT 

00047 

R 

WRTCMD 

00050 

R 

9ITTAB 

00053 

R 

RPINT 

00063 

R 

EXIT 

00113 

R 

TERMIN 

00125 

R 

NOLO 

00160 

R 

FLAG 

00167 

R 

APIOFF 

00223 

R 

ER2 

00240 

R 

ER4.1 

00327 

R 

ER4.7 

00334 

R 

ER4 , 4 

00364 

R 

ER4.2 

00376 

R 

ER4 , 5 

00442 

R 

ER4.11 

00444 

R 

ER5 

00466 

R 

STATUS 

00472 

R 

RECA,2 

00542 

R 

DELUNT 

00544 

R 

RESP.2 

00605 

R 

RESP , 1 

00613 

R 

ER1 

00631 

R 

TEST 1 

00635 

R 

ONL 1,2 

0066 4 

R 

CHKQNL 

00666 

R 

SETN , 1 

00746 

R 

SETN. 2 

00775 

R 

WRTC , 1 

01021 

R 

NRTHO 

01033 

R 

W R T S , 1 

01051 

R 

CHKCYL 

01056 

R 

CHKH.l 

01074 

R 

CHKSEC 

01106 

R 

READ 

01142 

R 

RANGEN 

01167 

R 

RANCNT 

01223 

R 

RANCQN 

01224 

R 

SUMCHK 

01236 

R 

CHKSUM 

01253 

R 

RESBUF 

01314 

R 

ACTIVE 

01322 

R 

SECSIZ 

005000 

A 

ACSAVE 

06332 

R 

BRKFLG 

06335 

R 

BUF.i 

06336 

R 

C A , 1 

06341 

R 

DEL • 1 

06342 

R 

FMTERC 

06345 

R 

NUMUNT 

06346 

R 

ONL * 3 

06351 

R 

QPRCNT 

06352 

R 

PUT. 2 

06355 

R 

RECFLG 

06356 

R 

RED. 1 

06361 

R 

RESTMP 

06362 

R 

SAVEWC 

06365 

R 

SET , l 

06366 

R 

SSTATA 

06371 

R 

SSTATB 

06372 

R 

STATB 

46375 

R 

SUM, 1 

06376 

R 

SWIND 

06401 

R 

TRYMSK 

06402 

R 

EEM 

707702 

A 

EBA 

707764 

A 


